﻿Public Class MemorizedDetails
  Public Sub New()
    Me.InitializeComponent()
    Me.InputPanelMain_EnabledChanged(Me, EventArgs.Empty)
  End Sub

  Private Sub InputPanelMain_EnabledChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputPanelMain.EnabledChanged
    If Me.InputPanelMain.Enabled Then
      Me.PanelPushUp.Height = Me.InputPanelMain.Bounds.Height
    Else
      Me.PanelPushUp.Height = 0
    End If
  End Sub

  Private Sub MenuItemClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemClose.Click
    Me.Close()
  End Sub

  Private Sub MenuItemSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSearch.Click
    Process.Start("http://www.bing.com/search?q=" & System.Web.HttpUtility.UrlEncode((Me.TextBoxArtist.Text & "   " & Me.TextBoxTitle.Text)).Replace("-", " ").Trim, "")
  End Sub
End Class